Package3 ( 092184 NDL) This file contains the source code for the MacForth words (GET.FILE) and (PUT.FILE), which interface to the SFGetFile and SFPutFile routines, respectively, via the Package3 Toolbox trap. These words are defined in both MacForth Level 1 and Level 2. However, the MacForth Level 2 assembler is required to load the definitions supplied here. Refer to the MacForth documentation and Inside Macintosh for usage information. 21 SEP 84 N. Lebedin CS[74176,2243] { (GET.FILE) } ( 092184 NDL) code (GET.FILE) ( position\prompt\reply\#types\typelist -- ) sp )+ a0 long move, ( reply record pointer -- ) sp )+ d0 long move, ( number of types -- ) sp )+ a1 long move, ( type list pointer -- ) sp -) long clr, ( -- file filter pointer ) d0 sp -) word move, ( -- number of types ) a1 sp -) long move, ( -- type list pointer ) sp -) long clr, ( -- dialog hook pointer ) a0 sp -) long move, ( -- reply record pointer ) 2 #w sp -) word move, ( -- package routine selector for SFGetFile ) base @ hex A9EA w, ( call Package3 ) base ! next ( return ) end-code { (PUT.FILE) } ( 092184 NDL) code (PUT.FILE) ( position\prompt\original name\reply -- ) sp )+ a0 long move, ( reply record pointer -- ) sp -) long clr, ( -- dialog hook pointer ) a0 sp -) long move, ( -- reply record pointer ) 1 #w sp -) word move, ( -- package routine selector for SFPutFile ) base @ hex A9EA w, ( call Package3 ) base ! next ( return ) end-code
